perm filename LIBMAC.NDF[PAS,SYS]4 blob
sn#487144 filedate 1979-12-10 generic text, type T, neo UTF8
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.OLD[PAS,SYS] 12-10-79 03:00 pages 1,1
**** File 1) LIBMAC.MAC[PAS,SYS], Page 1 line 29
1) C00085 00027 TITLE PUT *** PROCEDURES PUT, PUTCHR, PUTLN, PUTPG AND TMPCRW ***
1) C00095 00028 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
**** File 2) LIBMAC.OLD[PAS,SYS], Page 1 line 29
2) C00085 00027 TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
2) C00095 00028 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 8 line 13
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.OLD[PAS,SYS], Page 8 line 13
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 8 line 51
1) PUSHJ TOPP ,PUTCHR
1) SOJA REG2 ,BLANK ;MORE LEADING BLANKS ?
1) START: ILDB AC0 ,REG1
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,START ;ANY CHARACTER LEFT ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 8 line 51
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,BLANK ;MORE LEADING BLANKS ?
2) START: ILDB AC0 ,REG1
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,START ;ANY CHARACTER LEFT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 11
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.OLD[PAS,SYS], Page 11 line 11
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 43
1) PUSHJ TOPP ,PUTCHR
1) SOJA REG2 ,WRTOIN ;MORE BLANKS TO BE INSERTED ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 11 line 43
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,WRTOIN ;MORE BLANKS TO BE INSERTED ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 52
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,OCTWRT ;MORE DIGITS TO BE OUTPUT ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 11 line 52
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,OCTWRT ;MORE DIGITS TO BE OUTPUT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 11
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.OLD[PAS,SYS], Page 12 line 11
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 43
1) PUSHJ TOPP ,putchr
1) SOJA REG2 ,WRTHIN
**** File 2) LIBMAC.OLD[PAS,SYS], Page 12 line 43
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,WRTHIN
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 54
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,HEXWRT
**** File 2) LIBMAC.OLD[PAS,SYS], Page 12 line 54
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,HEXWRT
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 11
1) EXTERN PUTCHR
1) EXTERN WRTBLK
**** File 2) LIBMAC.OLD[PAS,SYS], Page 13 line 11
2) EXTERN PUTCH
2) EXTERN WRTBLK
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 50
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,.-2 ;MORE CHARACTERS?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 13 line 50
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,.-2 ;MORE CHARACTERS?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 59
1) PUSHJ TOPP ,PUTCHR
1) BOLEND: POPJ TOPP ,
**** File 2) LIBMAC.OLD[PAS,SYS], Page 13 line 59
2) PUSHJ TOPP ,PUTCH
2) BOLEND: POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 17 line 11
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.OLD[PAS,SYS], Page 17 line 11
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 17 line 41
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,LOOP ;MORE LEADING BLANKS ?
1) PRINT: MOVE AC0 ,REG1 ;CHAR TO BE OUTPUT INTO AC0
1) PUSHJ TOPP ,PUTCHR
1) WRITRT: POPJ TOPP ,
**** File 2) LIBMAC.OLD[PAS,SYS], Page 17 line 41
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,LOOP ;MORE LEADING BLANKS ?
2) PRINT: MOVE AC0 ,REG1 ;CHAR TO BE OUTPUT INTO AC0
2) PUSHJ TOPP ,PUTCH
2) WRITRT: POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 12
1) EXTERN PUTCHR
1) EXTERN WRTOPN
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 12
2) EXTERN PUTCH
2) EXTERN WRTOPN
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 50
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-3 ;MORE LEADING ZERO'S BEFORE POINT ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 50
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-3 ;MORE LEADING ZERO'S BEFORE POINT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 58
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-6 ;MORE DIGITS BEFORE POINT FROM REG1 ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 58
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-6 ;MORE DIGITS BEFORE POINT FROM REG1 ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 62
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-1
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 62
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-1
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 132
1) PUSHJ TOPP ,PUTCHR
1) MOVEI REG4 ,(REG3)
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 132
2) PUSHJ TOPP ,PUTCH
2) MOVEI REG4 ,(REG3)
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 142
1) PUSHJ TOPP ,PUTCHR
1) MOVEI AC0 ,"+" ;WRITES SIGN OUT
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 142
2) PUSHJ TOPP ,PUTCH
2) MOVEI AC0 ,"+" ;WRITES SIGN OUT
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 146
1) PUSHJ TOPP ,PUTCHR ;WRITES OUT SIGN
1) MOVM REG1 ,REG6 ;DEZIMAL EXPONENT TO REG1 - FOR WRITE
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 146
2) PUSHJ TOPP ,PUTCH ;WRITES OUT SIGN
2) MOVM REG1 ,REG6 ;DEZIMAL EXPONENT TO REG1 - FOR WRITE
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 152
1) PUSHJ TOPP ,PUTCHR ;NO - WRITE ONE ZERO OUT
1) MOVEI REG2 ,2 ;FORMAT - TWO DIGITS NORMALLY
**** File 2) LIBMAC.OLD[PAS,SYS], Page 18 line 152
2) PUSHJ TOPP ,PUTCH ;NO - WRITE ONE ZERO OUT
2) MOVEI REG2 ,2 ;FORMAT - TWO DIGITS NORMALLY
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 19 line 11
1) EXTERN PUTCHR
1) EXTERN TOOSML
**** File 2) LIBMAC.OLD[PAS,SYS], Page 19 line 11
2) EXTERN PUTCH
2) EXTERN TOOSML
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 19 line 67
1) PUSHJ TOPP ,PUTCHR ;WRITES THEM OUT
1) SOJG REG4 ,.-3 ;MORE DIGITS ?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 19 line 67
2) PUSHJ TOPP ,PUTCH ;WRITES THEM OUT
2) SOJG REG4 ,.-3 ;MORE DIGITS ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 1
1) TITLE PUT *** PROCEDURES PUT, PUTCHR, PUTLN, PUTPG AND TMPCRW ***
1) TWOSEG
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 1
2) TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
2) TWOSEG
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 9
1) ENTRY PUTCHR
1) ENTRY PUTBUF
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 9
2) ENTRY PUTCH
2) ENTRY PUTBUF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 88
1) ;*** PROCEDURE PUTCHR
1) ; - PUT ONE CHAR
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 88
2) ;*** PROCEDURE PUTCH
2) ; - PUT ONE CHAR
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 93
1) PUTCHR: SKIPG FILEOF(REG) ;EOF?
1) JRST PUTNEOF ;NO
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 93
2) PUTCH: SKIPG FILEOF(REG) ;EOF?
2) JRST PUTNEOF ;NO
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 160
1) PUSHJ TOPP ,PUTCHR
1) MOVEI AC0 ,12 ;<LF>
1) PUSHJ TOPP ,PUTCHR
1) POPJ TOPP ,
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 160
2) PUSHJ TOPP ,PUTCH
2) MOVEI AC0 ,12 ;<LF>
2) PUSHJ TOPP ,PUTCH
2) POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 170
1) PUSHJ TOPP ,PUTCHR ;
1) MOVEI AC0 ,14 ;<FF>
1) PUSHJ TOPP ,PUTCHR
1) POPJ TOPP ,
**** File 2) LIBMAC.OLD[PAS,SYS], Page 27 line 170
2) PUSHJ TOPP ,PUTCH ;
2) MOVEI AC0 ,14 ;<FF>
2) PUSHJ TOPP ,PUTCH
2) POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 13
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.OLD[PAS,SYS], Page 39 line 13
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 39
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,.-1 ;COUNT EQUAL ZERO?
**** File 2) LIBMAC.OLD[PAS,SYS], Page 39 line 39
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,.-1 ;COUNT EQUAL ZERO?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 61
1) JRST PUTCHR ;PUTCHR RETURNS OVER PUT
1)
**** File 2) LIBMAC.OLD[PAS,SYS], Page 39 line 61
2) JRST PUTCH ;PUTCH RETURNS OVER PUT
2)
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 65
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG5 ,.-1
**** File 2) LIBMAC.OLD[PAS,SYS], Page 39 line 65
2) PUSHJ TOPP ,PUTCH
2) SOJG REG5 ,.-1
***************